inherited frmBuildingChangeDogovorProps: TfrmBuildingChangeDogovorProps
  Left = 357
  Top = 229
  Width = 393
  Height = 411
  AutoSize = True
  Caption = #1053#1072#1089#1090#1088#1086#1081#1082#1072' '#1080#1079#1084#1077#1085#1077#1085#1080#1081
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 357
    Width = 385
    Align = alTop
    inherited BitBtn1: TBitBtn
      Left = 178
      ParentShowHint = False
      ShowHint = True
    end
    inherited BitBtn2: TBitBtn
      Left = 280
      Caption = #1054#1095#1080#1089#1090#1080#1090#1100
      ParentShowHint = False
      ShowHint = True
      Glyph.Data = {00000000}
    end
  end
  inherited ToolBar1: TToolBar
    Width = 385
    Height = 25
    AutoSize = True
    ButtonHeight = 23
    inherited ToolButton1: TToolButton
      ParentShowHint = False
      ShowHint = True
    end
    inherited ToolButton3: TToolButton
      Visible = False
    end
    inherited ToolButton4: TToolButton
      Visible = False
    end
    object lAddress: TLabel
      Left = 77
      Top = 0
      Width = 307
      Height = 23
      AutoSize = False
      Caption = '    '#1040#1076#1088#1077#1089':  '
      Layout = tlCenter
    end
  end
  object gbMain: TGroupBox [2]
    Left = 0
    Top = 25
    Width = 385
    Height = 332
    Align = alTop
    Caption = ' '#1053#1072#1089#1090#1088#1086#1081#1082#1072' '#1080#1079#1084#1077#1085#1077#1085#1080#1081' '#1089' '
    TabOrder = 2
    object lcbServices: TDBLookupComboboxEh
      Left = 136
      Top = 18
      Width = 235
      Height = 19
      AlwaysShowBorder = True
      DropDownBox.Sizable = True
      Enabled = False
      EditButtons = <>
      Flat = True
      KeyField = 'ID'
      ListField = 'NAME'
      ListSource = dscServices
      TabOrder = 0
      Visible = True
    end
    object lcbSupplier: TDBLookupComboboxEh
      Left = 136
      Top = 42
      Width = 235
      Height = 19
      AlwaysShowBorder = True
      DropDownBox.Sizable = True
      Enabled = False
      EditButtons = <>
      Flat = True
      KeyField = 'ID'
      ListField = 'NAME'
      ListSource = dscSupplier
      TabOrder = 1
      Visible = True
    end
    object lcbManag: TDBLookupComboboxEh
      Left = 136
      Top = 66
      Width = 235
      Height = 19
      AlwaysShowBorder = True
      DropDownBox.Sizable = True
      Enabled = False
      EditButtons = <>
      Flat = True
      KeyField = 'ID'
      ListField = 'NAME'
      ListSource = dscManag
      TabOrder = 2
      Visible = True
    end
    object cbServices: TDBCheckBoxEh
      Left = 72
      Top = 18
      Width = 58
      Height = 17
      Alignment = taLeftJustify
      AlwaysShowBorder = True
      Caption = #1059#1089#1083#1091#1075#1072
      Flat = True
      TabOrder = 3
      ValueChecked = 'True'
      ValueUnchecked = 'False'
      OnClick = cbServicesClick
    end
    object cbSupplier: TDBCheckBoxEh
      Left = 51
      Top = 42
      Width = 79
      Height = 17
      Alignment = taLeftJustify
      AlwaysShowBorder = True
      Caption = #1055#1086#1089#1090#1072#1074#1097#1080#1082
      Flat = True
      TabOrder = 4
      ValueChecked = 'True'
      ValueUnchecked = 'False'
      OnClick = cbSupplierClick
    end
    object cbManag: TDBCheckBoxEh
      Left = 14
      Top = 66
      Width = 116
      Height = 17
      Alignment = taLeftJustify
      AlwaysShowBorder = True
      Caption = #1046#1080#1083'. '#1086#1088#1075#1072#1085#1080#1079#1072#1094#1080#1103
      Flat = True
      TabOrder = 5
      ValueChecked = 'True'
      ValueUnchecked = 'False'
      OnClick = cbManagClick
    end
    object cbDogStatus: TDBCheckBoxEh
      Left = 24
      Top = 90
      Width = 106
      Height = 17
      Alignment = taLeftJustify
      AlwaysShowBorder = True
      Caption = #1057#1090#1072#1090#1091#1089' '#1076#1086#1075#1086#1074#1086#1088#1072
      Flat = True
      TabOrder = 6
      ValueChecked = 'True'
      ValueUnchecked = 'False'
      OnClick = cbDogStatusClick
    end
    object lcbDogStatus: TDBLookupComboboxEh
      Left = 136
      Top = 90
      Width = 235
      Height = 19
      AlwaysShowBorder = True
      DropDownBox.Sizable = True
      Enabled = False
      EditButtons = <>
      Flat = True
      KeyField = 'ID'
      ListField = 'NAME'
      ListSource = dscDogStatus
      TabOrder = 7
      Visible = True
    end
    object cbTariff: TDBCheckBoxEh
      Left = 75
      Top = 114
      Width = 55
      Height = 17
      Alignment = taLeftJustify
      AlwaysShowBorder = True
      Caption = #1058#1072#1088#1080#1092
      Flat = True
      TabOrder = 8
      ValueChecked = 'True'
      ValueUnchecked = 'False'
      OnClick = cbTariffClick
    end
    object cbNorm: TDBCheckBoxEh
      Left = 56
      Top = 224
      Width = 74
      Height = 17
      Alignment = taLeftJustify
      AlwaysShowBorder = True
      Caption = #1053#1086#1088#1084#1072#1090#1080#1074
      Flat = True
      TabOrder = 9
      ValueChecked = 'True'
      ValueUnchecked = 'False'
      OnClick = cbNormClick
    end
    object pGenTariff: TPanel
      Left = 136
      Top = 114
      Width = 235
      Height = 103
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Enabled = False
      TabOrder = 10
      object cbGenTariffOn: TDBCheckBoxEh
        Left = 7
        Top = 6
        Width = 74
        Height = 17
        AlwaysShowBorder = True
        Caption = #1054#1073#1097#1080#1081
        Checked = True
        Flat = True
        State = cbChecked
        TabOrder = 0
        ValueChecked = 'True'
        ValueUnchecked = 'False'
        OnClick = cbGenTariffOnClick
      end
      object cbGenTariffOff: TDBCheckBoxEh
        Left = 7
        Top = 24
        Width = 130
        Height = 17
        AlwaysShowBorder = True
        Caption = #1048#1085#1076#1080#1074#1080#1076#1091#1072#1083#1100#1085#1099#1081
        Flat = True
        TabOrder = 1
        ValueChecked = 'True'
        ValueUnchecked = 'False'
        OnClick = cbGenTariffOffClick
      end
      object pTariff: TPanel
        Left = 2
        Top = 45
        Width = 231
        Height = 56
        Align = alBottom
        BevelOuter = bvLowered
        Enabled = False
        TabOrder = 2
        object Label5: TLabel
          Left = 6
          Top = 9
          Width = 112
          Height = 13
          Alignment = taRightJustify
          Caption = #1042' '#1087#1088#1077#1076#1077#1083#1072#1093' '#1089#1086#1094#1085#1086#1088#1084#1099
        end
        object Label6: TLabel
          Left = 28
          Top = 33
          Width = 90
          Height = 13
          Alignment = taRightJustify
          Caption = #1057#1074#1099#1096#1077' '#1089#1086#1094#1085#1086#1088#1084#1099
        end
        object dbnTariff1: TDBNumberEditEh
          Left = 126
          Top = 8
          Width = 95
          Height = 19
          AlwaysShowBorder = True
          EditButtons = <>
          Flat = True
          TabOrder = 0
          Visible = True
        end
        object dbnTariff2: TDBNumberEditEh
          Left = 126
          Top = 32
          Width = 95
          Height = 19
          AlwaysShowBorder = True
          EditButtons = <>
          Flat = True
          TabOrder = 1
          Visible = True
        end
      end
    end
    object pGenNorm: TPanel
      Left = 136
      Top = 222
      Width = 235
      Height = 103
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Enabled = False
      TabOrder = 11
      object cbGenNormOn: TDBCheckBoxEh
        Left = 7
        Top = 6
        Width = 74
        Height = 17
        AlwaysShowBorder = True
        Caption = #1054#1073#1097#1080#1081
        Checked = True
        Flat = True
        State = cbChecked
        TabOrder = 0
        ValueChecked = 'True'
        ValueUnchecked = 'False'
        OnClick = cbGenNormOnClick
      end
      object cbGenNormOff: TDBCheckBoxEh
        Left = 7
        Top = 24
        Width = 130
        Height = 17
        AlwaysShowBorder = True
        Caption = #1048#1085#1076#1080#1074#1080#1076#1091#1072#1083#1100#1085#1099#1081
        Flat = True
        TabOrder = 1
        ValueChecked = 'True'
        ValueUnchecked = 'False'
        OnClick = cbGenNormOffClick
      end
      object pNorm: TPanel
        Left = 2
        Top = 45
        Width = 231
        Height = 56
        Align = alBottom
        BevelOuter = bvLowered
        Enabled = False
        TabOrder = 2
        object Label1: TLabel
          Left = 6
          Top = 9
          Width = 112
          Height = 13
          Alignment = taRightJustify
          Caption = #1042' '#1087#1088#1077#1076#1077#1083#1072#1093' '#1089#1086#1094#1085#1086#1088#1084#1099
        end
        object Label2: TLabel
          Left = 28
          Top = 33
          Width = 90
          Height = 13
          Alignment = taRightJustify
          Caption = #1057#1074#1099#1096#1077' '#1089#1086#1094#1085#1086#1088#1084#1099
        end
        object dbnNorm2: TDBNumberEditEh
          Left = 126
          Top = 32
          Width = 95
          Height = 19
          AlwaysShowBorder = True
          EditButtons = <>
          Flat = True
          TabOrder = 0
          Visible = True
        end
        object dbnNorm1: TDBNumberEditEh
          Left = 126
          Top = 8
          Width = 95
          Height = 19
          AlwaysShowBorder = True
          EditButtons = <>
          Flat = True
          TabOrder = 1
          Visible = True
        end
      end
    end
  end
  inherited ActionList1: TActionList
    Images = MAIN.ImageList
    Left = 176
    Top = 4
    inherited aSave: TAction
      OnExecute = aSaveExecute
    end
    inherited aCancel: TAction
      Caption = #1054#1095#1080#1089#1090#1080#1090#1100
      Hint = #1057#1073#1088#1086#1089#1080#1090#1100' '#1085#1072#1089#1090#1088#1086#1081#1082#1080
      ImageIndex = -1
      OnExecute = aCancelExecute
    end
    inherited aPrint: TAction
      Visible = False
    end
  end
  inherited PropStorage: TPropStorageEh
    Active = False
    Left = 144
    Top = 4
  end
  object dscServices: TDataSource
    DataSet = dsServices
    Left = 296
    Top = 41
  end
  object dsServices: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT ss.id, ss.name'
      'FROM services ss '
      'where ss.group_id = :pgroup_id'
      'order by 2')
    Transaction = trLocal
    Database = MAINDM.pMainDatabase
    Left = 328
    Top = 41
    object dsServicesID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsServicesNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object dscSupplier: TDataSource
    DataSet = dsSupplier
    Left = 296
    Top = 69
  end
  object dsSupplier: TpFIBDataSet
    SelectSQL.Strings = (
      'select'
      '    v.id,'
      '    v.name'
      'from'
      '    v_supplier v'
      'where closed_rs = 0'
      '  and exists (select 1 from services s, rtariffs t'
      '        where t.service_id = s.id and t.supplier_id = v.id'
      '          and s.group_id = :pgroup_id)'
      'order by 2')
    Transaction = trLocal
    Database = MAINDM.pMainDatabase
    Left = 328
    Top = 69
    object FIBIntegerField2: TFIBIntegerField
      FieldName = 'ID'
    end
    object FIBStringField2: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object dsManag: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    v.ID,'
      '    v.manag as NAME'
      'FROM'
      '    rmanag v'
      'where closed_rs = 0'
      'order by 2')
    Transaction = trLocal
    Database = MAINDM.pMainDatabase
    Left = 248
    Top = 81
    object FIBIntegerField3: TFIBIntegerField
      FieldName = 'ID'
    end
    object FIBStringField3: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object dscManag: TDataSource
    DataSet = dsManag
    Left = 216
    Top = 81
  end
  object dsDogStatus: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    STATUS as id,'
      '    name'
      'FROM'
      '    RDOGOVORS_STATS s'
      'where s.id <> 3'
      'order by 2')
    Transaction = trLocal
    Database = MAINDM.pMainDatabase
    Left = 232
    Top = 113
    object FIBIntegerField4: TFIBIntegerField
      FieldName = 'ID'
    end
    object FIBStringField4: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object dscDogStatus: TDataSource
    DataSet = dsDogStatus
    Left = 200
    Top = 113
  end
  object trLocal: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 248
    Top = 8
  end
end
